home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / CLEAN UP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  48 lines
  1. 10  REM  MON GOES HERE
  2. 12  DIM S$(200),B$(100)
  3. 100  HOME : PRINT "INSERT PFILE DISK AND HIT RETURN"
  4. 101  INPUT X$
  5. 102 NN = 500
  6. 103 LF = 28
  7. 105  DIM P$(NN)
  8. 110 Z$ = "<CTRL-D>"
  9. 111  PRINT Z$;"CATALOG"
  10. 112  HOME 
  11. 120  PRINT Z$;"OPEN PFILE"
  12. 130  PRINT Z$;"READ PFILE"
  13. 140  FOR E = 0 TO NN
  14. 150  INPUT P$(E)
  15. 160  NEXT E
  16. 170  PRINT Z$;"CLOSE PFILE"
  17. 200  REM 
  18. 202  PRINT "DO YOU WISH TO DELETE ANY ENTRIES (Y/N)": INPUT A$
  19. 203  IF A$ = "N"  THEN 900
  20. 204  IF A$ = "Y"  THEN 300
  21. 205  GOTO 202
  22. 300  PRINT "WHAT # ENTRY DO YOU WISH TO DELETE ": INPUT N:P$(N) = ""
  23. 350  PRINT "TO CONTINUE PRESS RETURN - TO END TYPE   END": INPUT A$
  24. 360  IF A$ = "END"  THEN 900
  25. 370  GOTO 300
  26. 380  GOTO 350
  27. 900  REM  WRITE TO DISK TWICE
  28. 910  PRINT Z$;"CATALOG"
  29. 911  HOME 
  30. 920  PRINT Z$;"OPEN PFILE"
  31. 930  PRINT Z$;"WRITE PFILE"
  32. 940  FOR E = 0 TO NN
  33. 950  PRINT P$(E)
  34. 960  NEXT E
  35. 970  PRINT Z$;"CLOSE PFILE"
  36. 980  PRINT "INSERT BACKUP DISK"
  37. 985  PRINT " AND HIT RETURN WHEN READY"
  38. 989  INPUT X$
  39. 990  PRINT Z$;"CATALOG": HOME 
  40. 991  PRINT Z$;"OPEN PFILE"
  41. 992  PRINT Z$;"WRITE PFILE"
  42. 993  FOR E = 0 TO NN
  43. 994  PRINT P$(E)
  44. 995  NEXT X
  45. 996  PRINT Z$;"CLOSE PFILE"
  46. 997  PRINT "END OF DISK WRITE ROUTINE"
  47. 998  PRINT "THANK YOU"
  48. 999  END